home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / t / mac / FSSpec.t < prev    next >
Encoding:
Text File  |  1994-10-12  |  178 b   |  6 lines  |  [TEXT/MPS ]
  1. print join("\n", &MacPerl'Volumes()), "\n---\n";
  2. $boot = &MacPerl'Volumes();
  3. print $boot, "\n";
  4. print &MacPerl'MakePath($boot), "\n";
  5. print &MacPerl'MakeFSSpec("MacPerl"), "\n";
  6.